home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / maxsamosdoors.lha / cwdl.amos / cwdl.amosSourceCode
AMOS Source Code  |  1999-01-01  |  2KB  |  69 lines
  1. F= Extension_16_0006(Val(Command Line$))
  2. E$=Chr$(27)+"["
  3.  
  4. MAIN:
  5. ST$=E$+"2J"+E$+"5;0H"+E$+"37m"
  6. PRNT[ST$]
  7. ST$="        PhoenixRAW Download from Amiga Phoenix BBS (+44) 151 283 6406"
  8. PRNT[ST$]
  9. PRNT[""]
  10. PRNT[E$+"33m"]
  11. ST$="      Please Wait.... The Sysop is selecting a file for you to download"
  12. PRNT[""]
  13. PRNT[ST$]
  14. PRNT[""]
  15. PRNT[E$+"32m"]
  16. IN$=Space$(120)
  17. Amos To Front 
  18. X Mouse=320
  19. Y Mouse=128
  20. IN$=Fsel$("RAM:")
  21. Amos To Back 
  22. If IN$="" or IN$=" " Then A= Extension_16_002A(E$+"31m                       Can't find the file I wanted..... "+IN$) : PRNT[""] : Goto CONT
  23. SP$="                                         "
  24. X=Instr(IN$,":")
  25. ST$="Ready to send : "+E$+"31m"+Mid$(IN$,X+1)
  26. P=40-(Len(ST$)/2)
  27. ST$=Left$(SP$,P)+ST$
  28. PRNT[ST$]
  29. PRNT[""]
  30. PRNT[""]
  31. PRNT[E$+"36m           Press <SPACE> to start, any other key to abort transfer"]
  32.  
  33. KEYLOOP:
  34. KEY= Extension_16_0184 
  35. If KEY=0 Then Goto KEYLOOP
  36. If KEY=$80000020 or KEY=$20 Then Goto DWNLOAD
  37. Goto CONT
  38.  
  39. DWNLOAD:
  40. A= Extension_16_0152(24,100,IN$)
  41. If A=20 Then BYE
  42.  
  43. CONT:
  44. PRNT[""]
  45. PRNT[""]
  46. PRNT[E$+"37m                              Send another file ? "]
  47.  
  48. KEYLOOP2:
  49. KEY= Extension_16_0184 
  50. If KEY=0 Then Goto KEYLOOP2
  51. If KEY=$79 Then Goto MAIN
  52. If KEY=$59 Then Goto MAIN
  53. BYE
  54.  
  55. Procedure PRNT[S$]
  56.    If Len(S$)>70
  57.       A$=Left$(S$,70)
  58.       B$=Right$(S$,Len(S$)-70)
  59.       Z= Extension_16_002A(A$)
  60.       Z= Extension_16_002A(B$+Chr$(13))
  61.    Else 
  62.       Z= Extension_16_002A(S$+Chr$(13))
  63.    End If 
  64.    If Z=20 Then BYE
  65. End Proc
  66. Procedure BYE
  67.  Extension_16_0018 
  68. End 
  69. End Proc